В двумерном массиве найти суммы значений элементов в каждом столбце и сформировать из них одномерный массив- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
INPUT"vvedite kolichestvo strok M ",m
INPUT"vvedite kolichestvo stolbcov N ",n
DIM a(m,n),b(n)
FOR i=1 TO m
FOR j=1 TO n
INPUT "vvedite element ",a(i,j)
NEXT
NEXT
PRINT "matrica "
FOR i=1 TO m
FOR j=1 TO n
PRINT a(i,j);
NEXT
PRINT
NEXT
for j=1 to n
s=0
for i=1 to m
s= s+a(i,j)
next
b(j)=s
next
print"massiv summ"
for i=1 to n
print b(i);
next

Похожие записи/страницы:

Leave a Comment